home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbapg.arc / RANDOM.PRG < prev    next >
Encoding:
Text File  |  1984-08-12  |  1.6 KB  |  54 lines
  1. * Program.: RANDOM.PRG
  2. * Author..: Luis A. Castro & Kelly Mc Tiernan
  3. * Date....: 06/25/84
  4. * Notice..: Copyright 1984, Luis A. Castro & Kelly Mc Tiernan,
  5. *           All Rights Reserved
  6. * Version.: dBASE II, version 2.4x
  7. * Notes...: Builds a datafile with random characters.
  8. *           Assumes the datafile is empty.
  9. *
  10. SET TALK OFF
  11. ERASE
  12. @ 2, 0 SAY "R A N D O M    C H A R A C T E R    B U I L D E R"
  13. @ 2,72 SAY DATE()
  14. @ 3, 0 SAY "========================================"
  15. @ 3,40 SAY "========================================"
  16. ACCEPT "Enter datafile name " TO filename
  17. ACCEPT "Enter field name " TO field:name
  18. INPUT  "Enter seed value [0..999999] " TO seed
  19. INPUT  "Enter number of chars in string [1..9] " TO char:total
  20. IF seed < 1 .OR. seed > 999999 .OR.;
  21.    char:total < 1 .OR. char:total > 9
  22.    SET TALK ON
  23.    ? "ERROR - INCORRECT PARAMETER VALUE(S)"
  24.    RETURN
  25. ENDIF
  26. ?
  27. ?
  28. STORE 1 TO rec:count
  29. STORE 100 TO rec:total
  30. USE &filename
  31. DO WHILE rec:count <= rec:total
  32.    STORE " " TO chars
  33.    STORE 1 TO char:count
  34.    DO WHILE char:count <= char:total
  35.       *
  36.       * ---RANDOM NUMBER GENERATOR.
  37.       STORE seed * 309.0 + .203125 TO seed
  38.       STORE seed / 1.000000 - INT( seed ) TO seed
  39.       STORE INT(seed*1000000) / 1000000.000000 TO seed, random
  40.       *
  41.       STORE chars + CHR( INT( random * 26 ) + 65 ) TO chars
  42.       STORE char:count + 1 TO char:count
  43.    ENDDO
  44.    ?? $(chars+"        ",2,9)
  45.    APPEND BLANK
  46.    REPLACE &field:name WITH $(chars,2)
  47.    STORE rec:count + 1 TO rec:count
  48. ENDDO
  49. ? "Finished..."
  50. CLEAR
  51. SET TALK ON
  52. RETURN
  53. * EOF: RANDOM.PRG
  54.